home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PRUS101.ZIP
/
PRN2TDT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-12-13
|
5KB
|
178 lines
program prnesc2tdt;
{ Programm zum convertieren der drucker.dat in *.tdt }
uses dos, crt;
type
TDruckerdef = RECORD
Dele : LongInt;
name,
init,
fettan,
fettaus,
unteran,
unteraus,
breitan,
breitaus,
kursivan,
kursivaus,
hochan,
hochaus,
tiefan,
tiefaus,
schmalan,
schmalaus,
picaan,
picaaus,
elitean,
eliteaus,
lqan,
lqaus :string[25];
Druckerart : Word;
END;
var fdruck : file of TDruckerdef;
procedure maketdt;
var def : TDruckerDef;
tdt : text;
datei : string[8];
x : Byte;
begin
read(fdruck, def);
writeln(def.name);
write('Wie soll der TDT heißen ( mit q überspringen) > ');
readln(datei);
if datei = 'q' then exit;
assign(tdt, datei+'.tdt');
rewrite(tdt);
writeln(tdt, 'TDT');
writeln(tdt, 'V) 1.00');
writeln(tdt, '; Dies ist eine TDT Datei für den');
writeln(tdt, ';');
writeln(tdt, 'N) '+def.name);
writeln(tdt, ';');
writeln(tdt, '; Das FPRINT Programmpaket ist eine Druckertreiber-Sammlung für');
writeln(tdt, '; im Projekt PRUSSG (c) Matthias TSP 1994');
writeln(tdt, ';');
writeln(tdt, '; Dezimal-Zeichen mit führendem #');
writeln(tdt, '; Variablen als n');
writeln(tdt, ';');
write(tdt, ' 1) ');
with def do
begin
for x := 1 to 25 do
if init[x] <> #0 then write(tdt, '#', ord(init[x]),' ');
end;
writeln(tdt, ' ; Initialisierung des Druckers');
write(tdt, ' 2) ');
with def do
begin
for x := 1 to 25 do
if FettAn[x] <> #0 then write(tdt, '#', ord(FettAn[x]),' ');
end;
writeln(tdt, ' ; FettAn');
write(tdt, ' 3) ');
with def do
begin
for x := 1 to 25 do
if FettAus[x] <> #0 then write(tdt, '#', ord(FettAus[x]),' ');
end;
writeln(tdt, ' ; FettAus');
write(tdt, ' 4) ');
with def do
begin
for x := 1 to 25 do
if UnterAn[x] <> #0 then write(tdt, '#', ord(UnterAn[x]),' ');
end;
writeln(tdt, ' ; UnterAn');
write(tdt, ' 5) ');
with def do
begin
for x := 1 to 25 do
if UnterAus[x] <> #0 then write(tdt, '#', ord(UnterAus[x]),' ');
end;
writeln(tdt, ' ; UnterAus');
write(tdt, ' 6) ');
with def do
begin
for x := 1 to 25 do
if BreitAn[x] <> #0 then write(tdt, '#', ord(BreitAn[x]),' ');
end;
writeln(tdt, ' ; BreitAn');
write(tdt, ' 7) ');
with def do
begin
for x := 1 to 25 do
if BreitAus[x] <> #0 then write(tdt, '#', ord(BreitAus[x]),' ');
end;
writeln(tdt, ' ; BreitAus');
write(tdt, ' 8) ');
with def do
begin
for x := 1 to 25 do
if KursivAn[x] <> #0 then write(tdt, '#', ord(KursivAn[x]),' ');
end;
writeln(tdt, ' ; KursivAn');
write(tdt, ' 9) ');
with def do
begin
for x := 1 to 25 do
if KursivAus[x] <> #0 then write(tdt, '#', ord(KursivAus[x]),' ');
end;
writeln(tdt, ' ; KursivAus');
write(tdt, '10) ');
with def do
begin
for x := 1 to 25 do
if HochAn[x] <> #0 then write(tdt, '#', ord(HochAn[x]),' ');
end;
writeln(tdt, ' ; HochAn');
write(tdt, '11) ');
with def do
begin
for x := 1 to 25 do
if HochAus[x] <> #0 then write(tdt, '#', ord(HochAus[x]),' ');
end;
writeln(tdt, ' ; HochAus');
write(tdt, '12) ');
with def do
begin
for x := 1 to 25 do
if TiefAn[x] <> #0 then write(tdt, '#', ord(TiefAn[x]),' ');
end;
writeln(tdt, ' ; TiefAn');
write(tdt, '13) ');
with def do
begin
for x := 1 to 25 do
if TiefAus[x] <> #0 then write(tdt, '#', ord(TiefAus[x]),' ');
end;
writeln(tdt, ' ; TiefAus');
write(tdt, '14) ');
with def do
begin
for x := 1 to 25 do
if SchmalAn[x] <> #0 then write(tdt, '#', ord(SchmalAn[x]),' ');
end;
writeln(tdt, ' ; SchmalAn');
write(tdt, '15) ');
with def do
begin
for x := 1 to 25 do
if SchmalAus[x] <> #0 then write(tdt, '#', ord(SchmalAus[x]),' ');
end;
writeln(tdt, ' ; SchmalAus');
close(tdt);
end;
begin
clrscr;
assign(fdruck, 'drucker.dat');
reset(fdruck);
while not eof(fdruck) do maketdt;
close(fdruck);
end.